home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / setfile.l < prev    next >
Text File  |  2007-02-28  |  573b  |  16 lines
  1. 0010 DIM SURNAM$ OF 20, FORNAM$ OF 20, SEX$ OF 1, BIRTH$ OF 6
  2. 0020 OPEN FILE 2,"PERSONFILE",WRITE
  3. 0030 FOR REC:=1 TO 5 DO
  4. 0040 READ ROLL,SURNAM$,FORNAM$,SEX$,BIRTH$,HITE,CHECK
  5. 0050 WRITE FILE 2: ROLL,SURNAM$,FORNAM$,SEX$,BIRTH$,HITE,CHECK
  6. 0060 ENDFOR REC
  7. 0070 READ ENDMARK
  8. 0080 WRITE FILE 2: ENDMARK
  9. 0090 CLOSE
  10. 0100 DATA 7,"WILLIAMS","SHIRLEY","F","030429",168,0
  11. 0110 DATA 8,"JENKINS","ROY","M","210925",171,0
  12. 0120 DATA 9,"STEEL","DAVID","M","131233",173,0
  13. 0130 DATA 10,"THATCHER","MARGARET","F","160726",170,0
  14. 0140 DATA 11,"BENN","ANTHONY","M","110223",177,0
  15. 0150 DATA -1
  16.